home *** CD-ROM | disk | FTP | other *** search
/ Business Assistant / Business Assistant.iso / acctg / db3ledge / addnames.prg < prev    next >
Text File  |  1986-01-12  |  1KB  |  78 lines
  1. SET HEADING OFF
  2. SET SAFETY OFF
  3. ***************(ADDNAMES.PRG)-JAY KENNEY
  4. CLEAR
  5. SET BELL OFF
  6. SET TALK OFF
  7. SET CONFIRM ON
  8. SET EXACT ON
  9. DO WHILE .T.
  10. USE VEND
  11. STORE 0 TO P
  12. GO BOTT
  13. STORE ACCT TO P
  14. CLEAR
  15. GO TOP
  16. STORE 0 TO MACCT
  17. STORE "                              " TO MNAME
  18. @ 15,22 SAY 'Last entered #'
  19. @ 15,37 SAY STR(P,3,0)
  20. @ 20,22 SAY 'Do you want to enter an account? '
  21. ?
  22. ?
  23. STORE ' ' TO OPTION
  24. WAIT '                                    ?  ' TO OPTION
  25. IF OPTION<>'Y'
  26. RETURN
  27. ENDIF
  28. IF OPTION='Y'
  29. CLEAR
  30. @ 6,25 SAY 'Enter account number ' GET MACCT PICTURE '999'
  31. READ
  32. LOCA FOR ACCT=MACCT
  33. STORE NAME TO MNAME
  34. IF .NOT. (EOF() .OR. BOF())
  35. CLEAR
  36. @ 6,20 SAY STR(MACCT,3,0)
  37. @ 6,24 SAY 'is already in use as'
  38. @ 6,45 say MNAME
  39. @ 20,25 SAY 'Are you trying to confuse me? '
  40. @ 23,37 SAY '?'
  41. STORE 1 TO XX
  42. DO WHILE XX<10
  43. STORE XX+1 TO XX
  44. ENDDO WHILE XX<10
  45. SKIP
  46. LOOP
  47. ENDIF #<>0
  48. CLEAR
  49. APPEND BLANK
  50. ENDIF
  51. @ 3,33 SAY 'Account number'
  52. @ 3,48 SAY MACCT
  53. @ 5,25 SAY 'Vendor name ' GET NAME
  54. @ 7,1 SAY 'Address ' GET ADDRESS
  55. @ 9,1 SAY 'City ' GET CITY
  56. @ 9,28 SAY 'State ' GET STATE
  57. @ 9,40 SAY 'Zip ' GET ZIP
  58. @ 11,1 SAY 'Phone ' GET PHONE
  59. @ 13,1 SAY 'Notes ' GET NOTES
  60. READ
  61. REPLACE ACCT WITH MACCT
  62. @ 17,1 CLEA
  63. @ 17,33 SAY 'Is this correct? '
  64. ?
  65. ?
  66. WAIT '                                       ? ' TO OPTION
  67. IF OPTION<>'Y'
  68. CLEA
  69. @ 17,25 SAY 'Press Ctrl W when finished '
  70. EDIT
  71. ENDIF
  72. CLEAR
  73. ENDIF
  74. ENDDO
  75. SET BELL ON
  76. SET EXACT OFF
  77. RETURN (WHILE OPTION = 'N')
  78.